home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD003b.dsk / KINETIC.ART.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  54 lines
  1. 5  HOME 
  2. 10  DIM C(150)
  3. 11  DIM XO(150)
  4. 12  DIM XTWO(150)
  5. 13  DIM YO(150)
  6. 14  DIM YTWO(150)
  7. 20 MX = 279
  8. 30 MY = 191
  9. 35  VTAB 21: HTAB 1: PRINT "BY CLIFF, LARRY HEWITT - DECEMBER 1980"
  10. 40  VTAB 3: HTAB 8: PRINT "WELCOME TO KINETIC ART"
  11. 50  VTAB 10: HTAB 8: PRINT "TYPE A NUMBER (1-150)";
  12. 60  INPUT "";Z
  13. 70  IF Z <1  OR Z >150  THEN  END 
  14. 100 X1 = 0:X2 = 0:Y1 = 0:Y2 = 0:C1 = 0:C2 = 0
  15. 120 A = 1
  16. 130  HGR2 
  17. 150  HCOLOR= 0
  18. 155  IF  PEEK( -16384) >132  THEN  POKE  -16368,0: HGR2 : TEXT : HOME : GOTO 35
  19. 160  HPLOT XO(A),YO(A) TO XTWO(A),YTWO(A)
  20. 200  IF C1 = 0  THEN KOLR = 1 + INT( RND(0) *7): HCOLOR= KOLR:C1 = 5 *(1 + INT( RND(1) *10))
  21. 205  IF KOLR = 4  THEN KOLR = 7
  22. 210  IF C2 = 0  THEN  GOSUB 900
  23. 220 OPX = X1 +OXD
  24. 230  IF OPX > = 0  AND OPX < = MX  THEN 250
  25. 240 OPX = X1:OXD =  -OXD
  26. 250 X1 = OPX
  27. 260 TPX = X2 +TX2
  28. 270  IF TPX > = 0  AND TPX < = MX  THEN 290
  29. 280 TPX = X2:TXD =  -TXD
  30. 290 X2 = TPX
  31. 300 IPY = Y1 +OYD
  32. 310  IF IPY > = 0  AND IPY < = MY  THEN 330
  33. 320 IPY = Y1:OYD =  -OYD
  34. 330 Y1 = IPY
  35. 340 IIPY = Y2 +TYD
  36. 350  IF IIPY > = 0  AND IIPY < = MY  THEN 370
  37. 360 IIPY = Y2:TYD =  -TYD
  38. 370 Y2 = IIPY
  39. 375  HCOLOR= KOLR
  40. 380  HPLOT X1,Y1 TO X2,Y2
  41. 390 C(A) = KOLR
  42. 400 XO(A) = X1:XTWO(A) = X2
  43. 410 YO(A) = Y1:YTWO(A) = Y2
  44. 420 A = A +1
  45. 425  IF A >Z  THEN A = 1
  46. 430 C1 = C1 -1:C2 = C2 -1
  47. 440  GOTO 150
  48. 900  REM  NEW STEP SIZES
  49. 910 OXD =  INT( RND(2) *13) -6
  50. 920 OYD =  INT( RND(3) *13) -6
  51. 930 TXD =  INT( RND(4) *13) -6
  52. 940 TYD =  INT( RND(5) *13) -6
  53. 950 C2 = 5 *(1 + INT( RND(6) *10))
  54. 960  RETURN